home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / computer vision recognition / rcinstall.exe / Disk1 / data1.cab / ASP_Pages / About.asp next >
Encoding:
Text File  |  2001-12-12  |  3.6 KB  |  113 lines
  1. <html>
  2. <head>
  3. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
  4.         <style media="screen" type="text/css"><!--
  5. td   { valign: top; color: black; font-size: 11px; font-family: Arial, Helvetica, Geneva, Swiss, SunSans-Regular }
  6. --></style>
  7.  
  8. <%@ LANGUAGE = VBScript %>
  9. <%
  10. Function CorrectStr(InS)
  11.     Dim OS
  12.     OS=replace(InS,"<","<")
  13.     OS=replace(OS,">",">")
  14.     CorrectStr=replace(OS,chr(13),"<br>")
  15. End Function
  16.  
  17. '---------------------------------------------------------------------------------------------------
  18. 'Getting local strings
  19. '--------------------------------------------------------------------------------------------------
  20.         dim oConn,oRs,sFilePath,sLangTable
  21.         dim display(8) 
  22.         on error resume next
  23.         set oConn = Server.CreateObject("ADODB.Connection")
  24.         sFilePath=Server.MapPath("csuiweb.mdb")
  25.         
  26.         oConn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & sFilePath & ";")
  27.         if err then
  28.                set oConn=nothing
  29.             err.clear
  30.             Response.Redirect("Error.asp?Err=1")
  31.         end if
  32.         sLangTable=mid(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),1,2)
  33.         if trim("" & sLangTable)="" then
  34.             sLangTable="En"
  35.         end if    
  36.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id=0")
  37. 'if sLangTable is not existent
  38.         if (err and (Err.Number=-2147217865)) then        
  39.             err.Clear
  40.             sLangTable="En"
  41.             Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id=0")
  42.         end if        
  43.         Response.Write("<META HTTP-EQUIV='CONTENT-LANGUAGE' CONTENT='" & oRS("Value") & "'>")
  44.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id between 1 and 2  ")
  45. 'Full product name
  46.         display(0)=oRs("Value")
  47.         oRs.moveNext
  48. 'Short product name
  49.         display(1)=oRs("Value")            
  50.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id=3")
  51. 'Version number
  52.         display(2)=oRs("Value")
  53.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id =15")
  54. 'About
  55.         display(3)=oRs("Value")
  56. 'Copyright ...
  57.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id =16")
  58.         display(4)=oRs("Value")
  59.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id =17")
  60. 'Warning
  61.         display(5)=oRs("Value")
  62.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id =18")
  63. 'This computer...law
  64.         display(6)=oRs("Value")
  65.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id =19")
  66. 'OK
  67.         display(7)=oRs("Value")
  68.         Set oRs=oConn.Execute("SELECT * FROM " & sLangTable & " WHERE Id =43")
  69. 'Version
  70.         display(8)=oRs("Value")
  71.         oRs.Close
  72.         oConn.Close            
  73.         if err then
  74.             err.clear
  75.             Response.Redirect("Error.asp?Err=1")
  76.         end if
  77. %>
  78.     <title><%=display(3) & " " & display(1) & " " & display(2)%></title>
  79.  
  80. <body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0"  >
  81. <center>
  82. <table cellpadding="0" cellspacing="0">
  83. <tr>
  84. <td colspan="5"><img src="images/aboutBoxBanner.jpg" alt='<%=display(3) & " " & display(0)%>'></td>
  85. </tr>
  86. <tr>
  87. <td colspan="5" height="10"></td>
  88. </tr>
  89. <tr>
  90. <td width="3%"> </td>
  91. <td colspan="4"><%=display(8) & " " & display(2)%></td>
  92. </tr>
  93. <tr>
  94. <td width="3%"> </td>
  95. <td colspan="4"><%=display(4)%></td>
  96. </tr>
  97. <td colspan="5" height="15"></td>
  98. </tr>
  99. <tr>
  100. <td width="3%"> </td>
  101. <td width="66%" align="left" valign="top"><b><%=display(5)%></b>
  102. <%=display(6)%>
  103. </td>
  104. <td width="3%"> </td>
  105. <td width="25%" align="center" valign="top"><input size="20" type="Submit" name="OK" value='<%=display(7)%>' style="padding-left: 20; padding-right: 20" onclick='javaScript:window.close();'> </td>
  106. <td width="3%"> </td>
  107. </tr>
  108.  
  109. </table>
  110. </center>
  111. </body>
  112. </html>
  113.